home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / SXP682.ARC / S-терм (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.9 KB  |  111 lines
  1. 0 SYS49242:PRINT"[147]    [151]";:SYS49230:POKE53281,.:POKE53280,11:GOTO160
  2. 2 GOTO350
  3. 6 I$=" "+I$:SYS49182,I$:I$=MID$(I$,2):RETURN
  4. 7 FORD=1TOLEN(A$)
  5. 8 IFMID$(A$,D,1)="_"THENPRINT" [157]":SYS49254:NEXT:RETURN
  6. 9 PRINTMID$(A$,D,1);:POKE212,.:SYS49254:NEXT:SYS49239:RETURN
  7. 14 SYS49179,A$:RETURN
  8. 15 H=INT(X/C):G=INT(X-H*C):RETURN
  9. 40 FORI=1TOB:GET#5,B$:NEXT:RETURN
  10. 160 CLOSE5:OPEN5,2,.,CHR$(8):PRINT#5:WAIT1064,66:R$=CHR$(13):C=256:B=255
  11. 170 MP=PEEK(742)+PEEK(743)*C:CP=PEEK(719):CN$="[195]ONNECT":MT=PEEK(2024)
  12. 180 R$=CHR$(13):J$="[211][217][211][207][208]":V$=R$+"[201]NVALID ":C$="[160]":W$="[193]BORTED":SW$=",S,W
  13. 185 AB[178]780:XB[178]781:IB[178]65508:CC[178]65484:CI[178]65478
  14. 190 Y$[178][199](.):M$[178]"P"[170][199](99):WT[178]10800:Q$[178][199](34)
  15. 192 [159]2,8,2,"0:CUSTOM
  16. 193 INPUT#2,A$,JM$,A$:IFVAL(A$)=-1THEN195
  17. 194 FORI=1TO(VAL(A$)+1)*3:INPUT#2,A$:NEXT
  18. 195 INPUT#2,A$:FORI=1TOVAL(A$)*4+4:INPUT#2,A$:NEXT
  19. 196 INPUT#2,A$:FORI=.TOVAL(A$)+4:INPUT#2,A$:NEXT:INPUT#2,A$,LD$,SU$,NB$,G$,G$
  20. 197 INPUT#2,G$,P1$,G$:LD=VAL(A$):LD$=LD$+":":DIMTB$(VAL(NB$)+7)
  21. 198 P1=VAL(P1$):FORI=.TOP1:INPUT#2,G$:NEXT:I=8
  22. 199 INPUT#2,TB$(I):I=I+1:IFST=.THEN199
  23. 200 CLOSE2:G$="":JM$=""
  24. 201 POKE650,128:PP=709:T=5184E3:A$=" ":FORX=1TO7:X$=X$+X$+A$:NEXT
  25. 210 X$=X$+X$+A$:FORX=1TO16:SS$=SS$+C$:NEXT:IF(PEEK(706)AND1)=.THEN380
  26. 220 A$="[212][197][210][205][201][206][193][204]":GOSUB14:POKE702,B
  27. 230 A$="__[212]ERMINAL [204]INK V940308_":GOSUB7:GOSUB40
  28. 240 A$="__[197]NTER [194][208][211] OR [210]ETURN: ":GOSUB7
  29. 250 POKE706,B:O=4:GOSUB2:GOSUB6:POKE706,.
  30. 255 IFI$=" "THENI$="1200":IFMT=2THENI$="2400
  31. 260 BR[178][197](I$):[139]BR[179][177]300[175]BR[179][177]1200[175]BR[179][177]2400[167]240
  32. 270 [141]400:A$[178]"_LENURSOR-(null)P TO VALXIT.CLOSE(null)ERM:":[141]7:[151]150,1:A$[178]"_":[141]7:[161]#5,A$
  33. 280 [151]2027,B:[158]49167:[158]49230
  34. 290 A$[178]"__PEEKPEEK(null), STR$OWN, (null)ATE, (null)UIT, (null)P, @ OR_(null)ETURN? ":[141]7
  35. 300 [161]I$:[139]I$[178]""[167]300
  36. 310 [141]6:[139]I$[178]"PEEK"[167][152]5:[151]702,.:[137]380
  37. 315 [139]I$[178]"(null)"[167]240
  38. 320 [139]I$[178]"(null)"[167][158]64738
  39. 325 [139]I$[178]"(null)"[176]I$[178]"STR$"[167]I2$[178]I$:[158]49224:[137]500
  40. 327 [139]I$[178]"@"[167]600
  41. 330 [139]I$[179][177]R$[167]300
  42. 340 A$[178]"__":[141]7:[158]49230:[158]49173:[137]280
  43. 350 [151]694,.:[151]703,.:A$[178][200](X$,O)[170]"":[158]49215,A$
  44. 360 I$[178]A$:I$[178][200](I$,[194](694)):[139][194](694)[178].[167]I$[178]C$
  45. 370 [142]
  46. 380 [153]"LOADNEW"R$"LOAD"Q$;LD$;"BBS*";Q$",";LD;":"R$"RUN
  47. 390 POKE198,3:POKE631,13:POKE632,13:POKE633,13:PRINT"":END
  48. 400 IF((PEEK(673)AND1)=1)AND(PEEK(MP)AND16)=CPTHEN400
  49. 410 BR=VAL(I$):POKE659,6:X=1022730/BR:GOSUB15:IFBR=300ORBR>1199THENSYS49242:GOTO430
  50. 420 SYS49245
  51. 430 POKE176,G:POKE177,H:POKE665,G:POKE666,H:X=1022730/BR/2-100:GOSUB15:POKE661,G
  52. 440 POKE662,H:IFLEN(I$)=3THENI$="0"+I$
  53. 450 FORX=1TO4:POKEX+964,ASC(MID$(I$,X,1)):NEXT:RETURN
  54. 500 F$="":A$="__[198]ILENAME : ":GOSUB7
  55. 501 POKE706,B:O=16:GOSUB2:IFI$=C$THEN290
  56. 502 F$=I$:A$="_[196]EVICE (8) : ":GOSUB7:O=2:GOSUB2:U=VAL(I$):IFU=.THENU=8
  57. 503 A$="[196]RIVE (0)  : ":GOSUB7:O=1:GOSUB2:IFI$=C$THENI$="0
  58. 504 DD$[178]I$[170]":":[139]I2$[178]"STR$"[167]522
  59. 506 A$[178]"_(null))RG OR (null))EQ? ":[141]7
  60. 508 [161]B$:[139]B$[178]"P"[167]FT$[178]"(null)(null)CHR$":TP[178]1:[137]513
  61. 510 [139]B$[178]"S"[167]FT$[178]"(null)VAL(null)":TP[178]2:[137]513
  62. 511 [139]B$[178]R$[167]290
  63. 512 [137]508
  64. 513 A$[178]"__":[141]7
  65. 514 [160]2:[160]1:[159]1,U,15:[159]2,U,2,DD$[170]F$[170]","[170]B$[170]",R":[132]1,A,C1$,I,I:[139]A[167]500
  66. 516 [141]550:[141]560:[158]49173:[151]PP,TP:[158]49164
  67. 518 [139][194](512)[178]1[167][160]2:[160]1:[153]"LOAD":A$[178]"_"[170]W$:[141]7:[137]340
  68. 520 [158]49173:[151]40984,B:[158]49158:[160]2:[160]1:[137]530
  69. 522 [141]550:[158]49173:[158]49161
  70. 523 A$[178][202]("(null)(null)CHR$(null)VAL(null)(null)(null)CHR$",([194](PP)[171]1)[172]3[170]1,3):FT$[178]A$:[141]560
  71. 524 [139][194](512)[178]1[167]518
  72. 526 ZZ$[178][202]("PSP",[194](PP),1):O$[178]","[170]ZZ$[170]",W
  73. 528 CLOSE1:OPEN1,U,15,"S"+DD$+F$:OPEN2,U,2,DD$+F$+O$
  74. 529 FORX=1TO1300:NEXT:SYS61310:SYS49173:SYS49155:CLOSE2:CLOSE1:POKE668,PEEK(667)
  75. 530 PRINT"[147]":A$="_[207][203]_":GOSUB7:GOTO340
  76. 550 SP$=LEFT$(X$,40):PRINT"[147]";:FORX=1TO6:PRINTSP$;:NEXT
  77. 552 PRINT"[152]";:FORX=1TO40:PRINT"[192]";:NEXT:PRINT"[151]";
  78. 554 FORX=1TO12:PRINTSP$;:NEXT:SP$="":PRINTLEFT$(X$,31)"[152][176][192][192][192][192][192][192][192][192]";
  79. 556 FORX=1TO31:PRINT"[192]";:NEXT:PRINT"[189]
  80. 558 [153]"(null)ERMINAL (null)RANSFER"R$"ON   ASCILENAME: "F$:[142]
  81. 560 [153]"POKE ASCILE (null)YPE: PRINT#"FT$
  82. 562 [153]"ONONPOKEPEEKAD PEEKLOCKS: PRINT#00000":[153]"ONONPOKEPEEKLOCKS (null)ENT: PRINT#00000";:[142]
  83. 600 [151]706,B:A$[178]"__STR$EVICE > ":[141]7:O[178]2:[141]2:[160]7:[160]1:X[178][197](I$)
  84. 602 [139]X[179]8[176]X[177][197](NB$)[170]7[176]I$[178]C$[167]290
  85. 604 [160]7:[159]7,X,15:[160]7:[139]ST[167]290
  86. 606 A$[178]"      STR$(null)(null) LEN(null)STR$ > ":[141]7
  87. 608 O[178]80:[141]2:[139]I$[178]C$[167][159]7,X,15:[137]624
  88. 612 [139][200](I$,1)[178]"$"[175][195](I$)[178]3[167]I$[178][202](I$,3,1)[170]":$":[137]640
  89. 614 [139][200](I$,1)[178]"$"[176][202](I$,3,1)[178]"$"[167]640
  90. 616 [139]TB$(U)[178]"1"[175][195](I$)[178]2[167]I$[178]I$[170]":
  91. 618 IFI$="/"THENOPEN7,X,7,"0:$":CLOSE7:I$=""
  92. 620 IFLEFT$(I$,1)="/"THENOPEN7,X,7,MID$(I$,4,1)+":$":CLOSE7:I$=""
  93. 622 OPEN7,X,15,I$
  94. 624 INPUT#7,A$,B$,B1$,B2$
  95. 626 A$="_"+A$+" "+B$+" "+B1$+" "+B2$+"_":GOSUB7:CLOSE7:IFI$=C$THEN290
  96. 628 A$="_":GOSUB7:GOTO606
  97. 640 CLOSE7:CLOSE1:A$="_":GOSUB7:OPEN7,X,15:OPEN2,X,.,I$
  98. 642 INPUT#7,A$,B$,B1$,B2$:IFVAL(A$)THEN626
  99. 644 GET#2,A$,A$,A$,A$
  100. 646 POKEXB,2:SYSCI
  101. 648 A$="":SYSIB:M=PEEK(AB):SYSIB:H=PEEK(AB):A$=STR$(M+H*C):A$=MID$(A$,2):A$=A$+" "
  102. 650 SYSIB:IFPEEK(AB)<>.THENA$=A$+CHR$(PEEK(AB)):GOTO650
  103. 652 A$=A$+"_":GOSUB7
  104. 656 POKEXB,2:SYSCI:SYSIB:SYSIB:IFPEEK(AB)>.THEN648
  105. 658 SYSCC:CLOSE2:CLOSE7:A$="_":GOSUB7:GOTO606
  106. 682 CLOSE10:OPEN10,X,.,"$
  107. 684 [161]#10,A$,A$,A$,A$,A$,A$
  108. 686 [161]#10,A$:[139]A$[179][177]""[167]686
  109. 688 [161]#10,A$,A$,A$,B$:F[178][198](A$[170]Y$)[170][198](B$[170]Y$)[172]C:[160]10
  110. 690 A$[178][202]([196](F),2)[170]" PEEKLOCKS ASCREE__":[141]7:[137]606
  111.